Release 10.1A: OpenEdge Development:
Web Services

Sample Web service specifications

These examples rely on sample Web service specifications shown in Table 5–1.

Table 5–1: Sample Web service specifications 

Property or component	Configuration, value, or name
Session model	Managed Note: Some information and examples are also provided to show session-free interactions.
TargetNamespace	"urn:OrderSvc"
AppObject	OrderInfo
ProcObject	CustomerOrder
SubAppObject	Payroll

Some of the information presented in these examples provides a review of concepts introduced and described in previous chapters of this manual. Note that some SOAP messages and code samples are edited for brevity.

Client references to the sample VB.NET interface include the following method declarations for these interface objects:

Interface AppObject, OrderInfo:

VB.NET method declarations on AppObject, OrderInfo

Public Sub Connect_OrderInfo(               ByVal userId As String,               ByVal password As String,               ByVal appServerInfo As String) Public Sub FindCustomerByNum(               ByVal CustomerNumber As Integer,               ByRef CustomerName As String) Public Function CreatePO_CustomerOrder                    (ByVal custNum As Integer) As String Public Sub CreateAO_Payroll( ) Public Sub Release_OrderInfo( )

The CreatePO_Object method can be represented as a VB.NET Sub or Function. If the persistent procedure defined in ProxyGen is specified to return the Progress 4GL RETURN-VALUE, it is represented, like the example, as a Function. For more information, see OpenEdge Development: Open Client Introduction and Programming .

Interface ProcObject, CustomerOrder:

VB.NET method declarations on ProcObject, CustomerOrder

Public Sub GetOrderDetails(               ByRef OrderDetails( ) As OrderDetailsRow) Public Function GetTotalOrdersByNumber                    (ByVal Threshold As Decimal) As Integer Public Sub Release_CustomerOrder( )

Interface SubAppObject, Payroll:

VB.NET method declarations on SubAppObject, Payroll

Public Sub IncreaseSalary(               ByVal EmployeeNumber As Integer,               ByVal Increase As Decimal) Public Sub Release_Payroll( )

Note: The samples in this chapter are not available on the Documentation and Samples CD or Progress Documentation Web site.